unit VerilenSiparis;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClass, XPMan, StdActns, ActnList, Mask, wwdbedit, Wwdotdot,
  Wwdbcomb, StdCtrls, Buttons, wwdbdatetimepicker, ExtCtrls, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
  cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, ADODB,
  cxImageComboBox, cxCalendar;

type
  TfmVerilenSiparis = class(TfmFormClass)
    Grid1: TcxGrid;
    Grid1DBTableView1: TcxGridDBTableView;
    Grid1Level1: TcxGridLevel;
    aqEntry: TADOQuery;
    dsEntry: TDataSource;
    Grid1DBTableView1Sorumlu: TcxGridDBColumn;
    Grid1DBTableView1FormNo: TcxGridDBColumn;
    Grid1DBTableView1UrunGrubu: TcxGridDBColumn;
    Grid1DBTableView1YY: TcxGridDBColumn;
    Grid1DBTableView1Departmant: TcxGridDBColumn;
    Grid1DBTableView1Model: TcxGridDBColumn;
    Grid1DBTableView1Grup: TcxGridDBColumn;
    Grid1DBTableView1SiparisAdet: TcxGridDBColumn;
    Grid1DBTableView1TalepAdet: TcxGridDBColumn;
    Grid1DBTableView1TalepTarih: TcxGridDBColumn;
    Grid1DBTableView1istenilenTarih: TcxGridDBColumn;
    Grid1DBTableView1SiparisTarih: TcxGridDBColumn;
    Grid1DBTableView1StokTarih: TcxGridDBColumn;
    Grid1DBTableView1TedarikSuresi: TcxGridDBColumn;
    Grid1DBTableView1Durum: TcxGridDBColumn;
    Grid1DBTableView1Notlar: TcxGridDBColumn;
    Grid1DBTableView1Firma: TcxGridDBColumn;
    Grid1DBTableView1MuadilKodu: TcxGridDBColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmVerilenSiparis: TfmVerilenSiparis;

implementation
uses data;
{$R *.dfm}

procedure TfmVerilenSiparis.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmVerilenSiparis := nil;
end;

procedure TfmVerilenSiparis.FormShow(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

end.

